home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Utilities / Explorer / Install_DIZ-Explorer < prev   
Encoding:
Text File  |  1997-10-17  |  15.8 KB  |  363 lines
  1. ; Installer script for the Diz-Explorer program
  2. ;******************************************************************************
  3. ;     _  _      ____
  4. ;    / \/ \    /___ |   
  5. ;   / /\/\ \     _ ||
  6. ;  / / /\ \ \   |_|||
  7. ; / / /  \ \ \ ____||
  8. ;/_/ /_/\_\ \_\\____|
  9. ;
  10. ; $VER: 2.01_Diz-Explorer_Installer (Jul-08-1997) 
  11. ; 
  12. ; If you wish to use any part of this installer you must ask us.
  13. ;
  14. ; Installer    by Jochen Grus & Martin Gentile ©1996, 1997 
  15. ; Diz-Explorer by Jochen Grus ©1997 
  16. ;******************************************************************************
  17.  
  18. ;*** System Stuff ***
  19. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  20. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  21. (set osver (/ (getversion "LIBS:version.library") 65536))
  22. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  23. (set fastmem (- totmem graphmem))
  24.  
  25. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  26. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  27. (if (= osver 41) (set workbench "3.2"))
  28.  
  29. (set cpu (database "cpu"))
  30. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  31. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  32. (if (= cpu 68040) (set #cpu 4)) 
  33. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  34. (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 6) )
  35.  
  36. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  37.    
  38. (set vernum1 (getversion "Explorer")) (set ver2 (/ vernum1 65536)) 
  39. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Explorerver (cat ver1 "2." rev1))
  40.  
  41. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  42. (set lan 0)
  43.  
  44. (if (= "english"     lanfound) (set lan 0))
  45. (if (= "deutsch"     lanfound) (set lan 1))
  46. (if (= "italiano"    lanfound) (set lan 2)) 
  47. (if (= "francais"    lanfound) (set lan 3)) 
  48. (if (= "svenska"     lanfound) (set lan 4)) 
  49. (if (= "norsk"       lanfound) (set lan 5)) 
  50. (if (= "nederlands"  lanfound) (set lan 6)) 
  51. (if (= "dansk"       lanfound) (set lan 7)) 
  52.  
  53. (set #English       "English")
  54. (set #Deutsch       "Deutsch")
  55. (set #Italiano     "Italiano")
  56. (set #Francais     "Francais")
  57. (set #Svenska       "Svenska")
  58. (set #Norsk           "Norsk")
  59. (set #Nederlands "Nederlands")
  60. (set #Dansk           "Dansk")
  61.  
  62. (set mfound 0) (set newicon1 1) 
  63. (set keeper 1) (set firsttime 0)
  64.  
  65. ;***********************************************************************
  66. ; The English Installation Strings
  67. ;***********************************************************************
  68. (set #about (cat "\n\n\n\nWelcome to the Diz-Explorer PRO " Explorerver "\n\n\nCopyright © 1997 by\n\nJochen Grus & Martin Gentile\n") )
  69. (set #aboutpacker (cat "\n\n\n\nNow you should copy all packers to the >C< directory. Before the installation you should check the versions! ") )
  70. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N I N G -               Installation found the following file in the C-directory: LHACHECK. You should delete this file because it has the BBS-Trojan VIRUS!!! ") )
  71. (set #askcpu "\nThe installer has found the following CPU:\n")
  72. (set #askcpu2 "\nThe installer program has found a CPU. The installer should show correctly what kind of cpu is installed...\n")
  73. (set #whereExplorer "Where do you wish to install the Diz-Explorer. A directory called 'Explorer' will be created if one is not there. If a copy of Explorer is found it will be backed up.")
  74. (set #filethere1 "\n\nThe installer has found an Explorer version ")
  75. (set #filethere2 " at ")
  76. (set #filethere3 "\n\nThe file will be renamed to ")
  77. (set #filethere4 " and it will then be moved to ")
  78. (set #backuptoXXX "Back-UP to file named 'Diz-Explorer.")
  79. (set #copyover "Copy Over Old Version")
  80. (set #oktodelete1 "\nIs it ok to delete the older Diz-Explorer binary so that the Explorer Directory can be made?\n")
  81. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Explorer binary so that the Explorer Directory can be made?\n")
  82. (set #Explorerfound "\nThe Installer has found a copy of Explorer already installed. What do you want to do?\n")
  83. (set #newicon "\nDo you wish to copy over The Diz-Explorer Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  84. (set #nonewicon  "No  - ToolTypes already set.")
  85. (set #yesnewicon "Yes - Copy over the old DIZ-Explorer Icon.")
  86. (set #whatcat "\nSelect the Explorer Language catalog you wish to install.\n")
  87. (set #wherecat "\nWhere do you wish to install the Explorer Language Catalog? There is no need for it yet. Default is ")
  88. (set #catnofind "Can not find this catalog in this Explorer archive. No need for it yet.")
  89. (set #whatdocs "\nWhat Explorer documentation would you like to install?\n")
  90. (set #wheredocs "Where would you like the Explorer documentation you selected to be installed?")
  91. (set #byebye (cat "\nDiz-Explorer Install Complete!\n\n" ))
  92.  
  93.  
  94.  
  95. ;***********************************************************************
  96. ; The German Installation Strings for the Diz-Explorer
  97. ;***********************************************************************
  98.  
  99. (if (= lan 1)
  100. (
  101.  (set po 1)
  102.  
  103. (set #about (cat "\n\n\n\nWillkommen zum DIZ-Explorer PRO " Explorerver "\n\n\nCopyright © 1997 by\n\nJochen Grus & Martin Gentile\n") )
  104. (set #aboutpacker (cat "\n\n\n\nJetzt sollten Sie alle Packer in das >C< Verzeichnis installieren. Man sollte vorher die Versionen überprüfen! Es sind aber alle aktuellen Packer hier vorhanden! ") )
  105. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N U N G -                                                                     Installation hat folgende Datei im C-Verzeichnis gefunden: LHACHECK. Sie sollten diese Datei entfernen, da es den VIRUS BBS-Trojan enthält!!! ") )
  106. (set #askcpu "\nFolgender Prozessor wurde vom Installer erkannt:\n")
  107. (set #askcpu2 "\nDer Installer hat einen Prozessor gefunden. Es müßte den richtigen Typ korrekt erkannt haben \n")
  108. (set #whereExplorer "Wohin wollen Sie den DIZ-Explorer installieren ? Ein Verzeichnis 'Explorer' wird erzeugt, wenn es nicht existiert. Wenn bereits eine Explorer Version vorhanden ist, kann diese gesichert werden.")
  109. (set #filethere1 "\n\nDas Installationsprogramm hat eine Explorer Version gefunden")
  110. (set #filethere2 " at ")
  111. (set #filethere3 "\n\nDie Datei wird umbenannt in ")
  112. (set #filethere4 " und wird dann verschoben nach ")
  113. (set #backuptoXXX "sichern als Datei 'Diz-Explorer.")
  114. (set #copyover "alte Version überschreiben")
  115. (set #oktodelete1 "\nSind Sie damit einverstanden, daß das alte Diz-Explorer Hauptprogramm gelöscht, so daß das Explorer Verzeichnis erstellt werden kann?\n")
  116. (set #oktodelete2 "\nSind Sie damit einverstanden, daß das alte _umbenannte_ Explorer Hauptprogramm gelöscht wird, so daß das Explorer Verzeichnis erstellt werden kann?\n")
  117. (set #Explorerfound "\nDas Installationsprogramm hat bereits eine installierte Explorer Version gefunden. Was wollen Sie tun?\n")
  118. (set #newicon "\nWollen Sie das Diz-Explorer Piktogramm aus dem Archiv übernehmen? Wenn Sie bereits die Programmmerkmale verändert haben, wählen Sie bitte Nein.\n")
  119. (set #nonewicon  "Nein  - Programmmerkmale verändert.")
  120. (set #yesnewicon "Ja - Überschreibe das alte DIZ-Explorer Icon.")
  121. (set #whatcat "\nWählen Sie die Sprache, die installiert werden soll.\n")
  122. (set #wherecat "\nWohin wollen Sie die Explorer Sprachdatei installieren? Wird noch nicht gebraucht. Eingestellt ist ")
  123. (set #catnofind "Ich kann die passende Sprachdatei im Archiv nicht finden. Wird noch nicht gebraucht.")
  124. (set #whatdocs "\nWelche Anleitung zum Explorer wollen Sie installieren ?\n")
  125. (set #wheredocs "Wohin wollen Sie die gewählte Anleitung kopieren?")
  126. (set #byebye (cat "\nDie DIZ-Explorer Installation wurde erfolgreich abgeschlossen!""\n\nViel Spaß beim Entdizzen...\n\n" ))
  127.  
  128. ;***********************************************************************
  129. ; The Italiano Installation Strings
  130. ;***********************************************************************
  131. ;
  132. ;Please make your own Strings for the installation...  Si! I will do it!
  133. ;
  134. ;***********************************************************************
  135. ; The Francais Installation Strings
  136. ;***********************************************************************
  137. ;
  138. ;Please make your own Strings for the installation..  Qui! je vais le faire!
  139. ;
  140. ;***********************************************************************
  141. ; The Svenska Installation Strings
  142. ;***********************************************************************
  143. ;
  144. ;Please make your own Strings for the installation...  Yo! I will do it!
  145. ;
  146. ;***********************************************************************
  147. ; The Norsk Installation Strings
  148. ;***********************************************************************
  149. ;
  150. ;Please make your own Strings for the installation...  Yo! I will do it!
  151. ;
  152. ;***********************************************************************
  153. ; The Nederlands Installation Strings
  154. ;***********************************************************************
  155. ;
  156. ;Please make your own Strings for the installation...  Yo! Ick do dat!
  157. ;
  158. ;***********************************************************************
  159. ; The Dansk Installation Strings
  160. ;***********************************************************************
  161. ;
  162. ;Please make your own Strings for the installation...  Yo! I will do it!
  163. ;
  164.  
  165. )
  166. )
  167.  
  168. ;***********************************************************************
  169. ; Tach Mädelz and Jungz !
  170. ;***********************************************************************
  171. (message #about)
  172. (welcome) 
  173. ;********************************************************************
  174. ; Checking the CPU - Hello CPU are you there???
  175. ;********************************************************************
  176.   (set cpu (database "cpu"))
  177. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  178. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  179. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  180. (if (= @installer-version 0)
  181.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  182.   (if (= cpu 68060) (set #cpu 1))
  183.   (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 2) )
  184.   (if (= cpu 68060) (set #cpu 1))
  185. )
  186.  
  187. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060" "PC603 or PC604")
  188.             (prompt #askcpu)
  189.                     (help   #askcpu2)
  190.                 (default #cpu)
  191.       )
  192. )
  193.  
  194. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040")) (if (= cpuPick 2) (set cpuadd ".ppc"))
  195.  
  196. ;***********************************************************************
  197. ; Ask where to put the DIZ-EXPLORER & Make w new directory if needed
  198. ;***********************************************************************
  199. (set Explorerdir  (askdir (prompt #whereExplorer)
  200.                 (help   #whereExplorer)
  201.                     (default "SYS:")
  202.                )  
  203. )
  204.  
  205. (set where Explorerdir)
  206.  
  207. ;***********************************************************************
  208. ; Check to see if the DIZ-EXPLORER is already there, if so ask to backup
  209. ;***********************************************************************
  210. (if (= 1 (exists (tackon where "Explorer") ) ) 
  211.   (
  212.     (set vernum1 (getversion (tackon where "Explorer") ))
  213.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  214.     (set Explorer_old (cat ver1 "." rev1))
  215.  
  216.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  217.                   (cat "Explorer" Explorer_old) #filethere4 (tackon Explorerdir "Explorer") )
  218.     )
  219.     
  220.  
  221.     (copyfiles (source (tackon where "Explorer"))
  222.                (dest where) 
  223.                (infos)
  224.                (newname (cat "Explorer." Explorer_old))
  225.     )
  226.     
  227.     (delete (tackon Explorerdir "Explorer") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  228.  
  229.     (if (< (exists (tackon Explorerdir "Explorer")) 2) (makedir (tackon Explorerdir "Explorer") (infos)) )    
  230.  
  231.     (copyfiles (source (tackon where (cat "Explorer." Explorer_old) ))
  232.                        (dest (tackon Explorerdir "Explorer")) 
  233.                        (infos)
  234.                
  235.     )
  236.  
  237.     (delete (tackon where (cat "Explorer" Explorer_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  238.  
  239.     ;(set firsttime 1)
  240.  
  241.   )
  242. )
  243.  
  244. (if (< (exists (tackon Explorerdir "Explorer")) 2) (makedir (tackon Explorerdir "Explorer") (infos)) )
  245. (set where (tackon Explorerdir "Explorer"))
  246. (set @default-dest where)
  247.  
  248. ;********************************************************************
  249. ; Check for the old one and backup it or not...
  250. ;********************************************************************
  251. (if (exists (tackon where "Explorer")) 
  252.   (
  253.       (set vernum1 (getversion (tackon where "Explorer") ))
  254.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  255.       (set Explorer_old (cat ver1 "." rev1))
  256.  
  257.       (set keeper  (askchoice (choices  (cat #backuptoXXX Explorer_old "'")  #copyover)
  258.                      (prompt #Explorerfound)
  259.                  (help   #Explorerfound)
  260.                      (default 0)
  261.                )
  262.       )    
  263.  
  264.  
  265.       (if (= keeper 0)
  266.          (copyfiles (source (tackon where "Explorer"))
  267.                      (dest where) 
  268.                      (infos)
  269.                      (newname (cat "Explorer" Explorer_old))
  270.          )
  271.       )          
  272.  
  273.       (set firsttime 1)
  274.     
  275.   )
  276. )
  277.  
  278. ;********************************************************************
  279. ; Copy over the old Explorer file and Icon if wanted (Sure!)
  280. ;********************************************************************
  281. (copyfiles (source "Explorer") (dest where) (optional "nofail") )
  282.  
  283.  
  284. (if (= firsttime 0)  (copyfiles (source "Explorer.info") (dest where) (optional "nofail") ) )
  285.  
  286.  
  287. (if (OR (= keeper 0) (= (exists (tackon where "Explorer.info")) 0))
  288.   (
  289.   
  290.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  291.                            (prompt #newicon)
  292.                        (help   #newicon)
  293.                            (default 0)
  294.             )
  295.    )
  296.   
  297.    (if (= newicon 0) 
  298.      (copyfiles (source "Explorer.info") (dest where)  (optional "nofail") )
  299.    )
  300.  
  301.   )
  302.  
  303. )
  304.  
  305. ;********************************************************************
  306. ; Select and copy the packers to the C-Directory
  307. ;********************************************************************
  308. (message #aboutpacker)
  309.  
  310.   (
  311.     (copyfiles
  312.       (prompt "Copying the packers")
  313.       (source "c")
  314.       (all)
  315.       (dest "c:")
  316.       (confirm)
  317.       (help 
  318.         "This will copy the packers to the >C< directory. "
  319.         "If you copy it to the SYS:c directory, it will not check if there are newer versions! "
  320.         "Check this out! There is a list of Version-Numbers of the files which are to installed "
  321.       )
  322.     )
  323. )
  324. ;********************************************************************
  325. ; Checking the C-Directory for LhaCheck - Oh no... 
  326. ;********************************************************************
  327.    (if (exists "c:lhacheck")
  328. (message #aboutlhacheck))
  329. ;********************************************************************
  330. ; Ask and copy the documentations if wanted!
  331. ;********************************************************************
  332. (set docs (askoptions (choices " Explorer.guide" " DIZ-Explorer.txt" " Example-Amiga.list" " Example-PC.list")
  333.               (prompt #whatdocs)
  334.                       (help #whatdocs)
  335.       )
  336. )
  337.  
  338. (if (<> docs 0)
  339.  (
  340.    (set docsdir (askdir (prompt #wheredocs)
  341.                (help   #wheredocs)
  342.                    (default where)
  343.                 )  
  344.    )
  345.  
  346.    (if (IN docs 0) (copyfiles (source "Explorer.guide") (dest docsdir) (infos) (optional "nofail") ) )
  347.    (if (IN docs 0) (copyfiles (source "Diz-Explorer.txt") (dest docsdir) (infos) (optional "nofail") ) )
  348.    (if (IN docs 0) (copyfiles (source "Example-Amiga.list") (dest docsdir) (infos) (optional "nofail") ) )
  349.    (if (IN docs 0) (copyfiles (source "Example-PC.list") (dest docsdir) (infos) (optional "nofail") ) )
  350.    (run (cat "run SYS:utilities/AmigaGuide Explorer.guide") )
  351.  
  352.  )
  353.  
  354. )
  355.  
  356.  
  357. ;********************************************************************************
  358. ; Ende - Bye - Fin - Finito - Fuck i must go now - see u in the next whisky bar. 
  359. ;********************************************************************************
  360.  
  361.  
  362. (exit #byebye)
  363.